home *** CD-ROM | disk | FTP | other *** search
/ Top 200 Programs / Top 200 Programs.iso / Bob8 / THOMPSON / LIBERTY / PRODUCT / LB14W.EXE / PLAYER.BAS < prev    next >
BASIC Source File  |  1996-01-16  |  441b  |  26 lines

  1.  
  2.  
  3.     'Simple wave file player
  4.     'You must have sound support installed to
  5.     'use this player!
  6.  
  7.     template$ = "*.wav"
  8.  
  9. [loop]
  10.  
  11.     filedialog "Pick a *.WAV file", template$, w$
  12.     if w$ = "" then [quit]
  13.     playwave w$, asynch
  14.  
  15.     'get the path and make it the default
  16.     while right$(w$, 1) <> "\"
  17.         w$ = left$(w$, len(w$) - 1)
  18.     wend
  19.     template$ = w$ + "*.wav"
  20.  
  21.     goto [loop]
  22.  
  23. [quit]
  24.  
  25.     end
  26.